home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / viewmrg.zip / CONFIG.MRG < prev    next >
Text File  |  1988-10-25  |  13KB  |  344 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against CONFIG.BAS to produce D:\LITE\CONFIG.BAS
  3. * CONFIG.BAS:  Date 10-2-1988  Size 153728 bytes
  4. * ------------[ Created 10-25-1988 19:16:05 ]------------
  5. * REPLACING old line(s) by new
  6. 11706 INPUT #1,RECYCLE.WAIT, _
  7.                LIBRARY.FUNCTION(1), _
  8.                LIBRARY.FUNCTION(2), _
  9.                LIBRARY.FUNCTION(3), _
  10.                LIBRARY.FUNCTION(4), _
  11.                LIBRARY.FUNCTION(5), _
  12.                LIBRARY.FUNCTION(6), _
  13.                LIBRARY.FUNCTION(7), _
  14.                LIBRARY.DRIVE$, _
  15.                LIBRARY.DIRECTORY.PATH$, _
  16.                LIBRARY.DIRECTORY.EXTENTION$, _
  17.                LIBRARY.WORK.DISK.PATH$, _
  18.                LIBRARY.MAX.DISK, _
  19.                LIBRARY.MAX.DIRECTORY, _
  20.                LIBRARY.MAX.SUBDIR, _
  21.                LIBRARY.SUBDIR.PREFIX$, _
  22.                LIBRARY.ARCHIVE.PATH$, _
  23.                LIBRARY.ARCHIVE.PROGRAM$, _
  24.                LIBRARY.COMMANDS$
  25.       GOSUB 22340
  26.       INPUT #1,UPLOAD.PATH$, _
  27.                FMS.DIRECTORY$, _
  28.                ANS.MENU$,_
  29.                REQUIRED.QUESTIONNAIRE$,_
  30.                REMEMBER.NEW.USERS, _
  31.                SURVIVE.NOUSER.ROOM, _
  32.                PROMPT.HASH$, _
  33.                START.HASH, _
  34.                LEN.HASH, _
  35.                PROMPT.INDIV$, _
  36.                START.INDIV, _
  37.                LEN.INDIV
  38.       GOSUB 22340
  39.       INPUT #1,BYPASS.MSGS, _
  40.                MUSIC, _
  41.                RESTRICT.BY.DATE, _
  42.                DAYS.TO.WARN, _
  43.                DAYS.IN.SUBSCRIPTION.PERIOD, _
  44.                CALLBACK.VERIFICATION, _
  45.                RESTRICT.VALID.CMDS, _
  46.                NEW.USER.DEFAULT.MODE, _
  47.                NEW.USER.LINE.FEEDS, _
  48. * ------[ first line different ]------
  49.                ARKVIEW.PATH$, _        'ViewMod
  50.                NEW.USER.BELL, _
  51.                NEW.USER.CASE, _
  52.                NEW.USER.MARGINS, _
  53.                WRAP.CALLERS.FILE$, _
  54.                REDIRECT.IO.METHOD, _
  55.                GO.TO.SHELL, _
  56.                HALT.ON.ERROR, _
  57.                NEW.PUBLIC.MSGS.SECURITY, _
  58.                NEW.PRIVATE.MSGS.SECURITY, _
  59.                SECURITY.NEEDED.TO.CHANGE.MSGS, _
  60.                SL.CATEGORIZE.UPLOADS, _
  61.                BAUDOT, _
  62.                TIME.TO.DROP.TO.DOS, _
  63.                EXPIRED.SECURITY, _
  64.                DTR.DROP.DELAY, _
  65.                ASK.IDENTITY, _
  66.                USE.EXTERNAL.XMODEM, _
  67.                BUFFER.SIZE, _
  68.                MLCOM, _
  69.                SHOOT.YOURSELF, _
  70.                F7.MESSAGE$, _
  71.                NEW.USER.DEFAULT.PROTOCOL$, _
  72.                NEW.USER.GRAPHICS$, _
  73.                NET.MAIL$, _
  74.                MASTER.DIRECTORY.NAME$, _
  75.                PROTO.DEF$, _
  76.                UPCAT.HELP$, _
  77.                ALWAYS.STREW.TO$, _
  78.                LAST.NAME.PROMPT$
  79.       GOSUB 22340
  80.       INPUT #1,PERSONAL.DRVPATH$, _
  81.                PERSONAL.DIR$, _
  82.                PERSONAL.BEGIN, _
  83.                PERSONAL.LEN, _
  84.                PERSONAL.PROTOCOL$, _
  85.                PERSONAL.CONCAT , _
  86.                PRIVATE.READ.SEC, _
  87.                PUBLIC.READ.SEC, _
  88.                SEC.CHANGE.MSG, _
  89.                KEEP.INIT.BAUD, _
  90.                MAIN.PUI$, _
  91.                DEFAULT.ECHOER$, _
  92.                HOST.ECHO.ON$, _
  93.                HOST.ECHO.OFF$, _
  94.                SWITCH.BACK, _
  95.                DEFAULT.LINE.ACK$, _
  96.                ALTDIR.EXTENSION$, _
  97.                DIRECTORY.PREFIX$
  98.       GOSUB 22340
  99.       INPUT #1,SEC.LVL.EXEMPT.FRM.PURGING, _
  100.                MODEM.INIT.WAIT.TIME, _
  101.                MODEM.COMMAND.DELAY.TIME, _
  102.                TURBO.RBBS
  103.       GOSUB 22340
  104. * REPLACING old line(s) by new
  105. 12646 ON ILOOKUP GOSUB 17560, _  ' 281 Prompt new users for their preferences
  106.                        22550, _  ' 282 New users default sign-on mode
  107.                        22550, _  ' 283 New users default file-transfer mode
  108.                        22550, _  ' 284 Line feeds for new users default to
  109. * ------[ first line different ]------
  110.                        20018, _  ' 285 Working drive and path for PKX(ViewArc)
  111.                        22550, _  ' 286 Prompt bell for new users defaults to
  112.                        22550, _  ' 287 New users 'graphics' ability is
  113.                        22550, _  ' 288 New users upper/lower case
  114.                        22550, _  ' 289 New users margins defaults are
  115.                        17570, _  ' 290 Remember new users
  116.                        17580, _  ' 291 Survive no user room
  117.                        12325, _  ' 292
  118.                        12325, _  ' 293
  119.                        12325, _  ' 294
  120.                        12325, _  ' 295
  121.                        12325, _  ' 296
  122.                        12325, _  ' 297
  123.                        12325, _  ' 298
  124.                        12325, _  ' 299
  125.                        12325     ' 300
  126.       GOTO 12325
  127. * REPLACING old line(s) by new
  128. 20010 GOSUB 15200
  129.       LIBRARY.DIRECTORY.PATH$ = HJ$
  130.       RETURN
  131. '
  132. * ------[ first line different ]------
  133. ' *  PKX35 Directory/Path
  134. '
  135. * INSERTING new line(s)
  136. 20018 A$ = "Name of Drive and SubDir For PKXARC "
  137.       GOSUB 15200
  138.       PKDRV = LEN(HJ$)-1
  139.       HJ$ = LEFT$(HJ$,PKDRV)
  140.       ARKVIEW.PATH$ = HJ$
  141.       RETURN
  142. '
  143. ' *  NAME OF 'LIBRARY DIRECTORY' FILE'S EXTENSION
  144. '
  145. * REPLACING old line(s) by new
  146. 59035 WRITE #1,TURN.PRINTER.OFF,_
  147.                DIRECTORY.PATH$,_
  148.                MIN.SEC.TO.VIEW, _
  149.                LIMIT.SEARCH.TO.FMS, _
  150.                DEFAULT.CATEGORY.CODE$, _
  151.                DIR.CATEGORY.FILE$, _
  152.                NEW.FILES.CHECK, _
  153.                MAX.DESC.LEN, _
  154.                SHOW.SECTION, _
  155.                COMMANDS.IN.PROMPT, _
  156.                NEWUSER.SETS.DEFAULTS, _
  157.                HELP.PATH$, _
  158.                HELP.EXTENSION$, _
  159.                MAIN.COMMANDS$, _
  160.                FILE.COMMANDS$, _
  161.                UTIL.COMMANDS$, _
  162.                GLOBAL.COMMANDS$, _
  163.                SYSOP.COMMANDS$
  164.       WRITE #1,RECYCLE.WAIT, _
  165.                LIBRARY.FUNCTION(1), _
  166.                LIBRARY.FUNCTION(2), _
  167.                LIBRARY.FUNCTION(3), _
  168.                LIBRARY.FUNCTION(4), _
  169.                LIBRARY.FUNCTION(5), _
  170.                LIBRARY.FUNCTION(6), _
  171.                LIBRARY.FUNCTION(7), _
  172.                LIBRARY.DRIVE$, _
  173.                LIBRARY.DIRECTORY.PATH$, _
  174.                LIBRARY.DIRECTORY.EXTENTION$, _
  175.                LIBRARY.WORK.DISK.PATH$, _
  176.                LIBRARY.MAX.DISK, _
  177.                LIBRARY.MAX.DIRECTORY, _
  178.                LIBRARY.MAX.SUBDIR, _
  179.                LIBRARY.SUBDIR.PREFIX$, _
  180.                LIBRARY.ARCHIVE.PATH$, _
  181.                LIBRARY.ARCHIVE.PROGRAM$, _
  182.                LIBRARY.COMMANDS$
  183.       WRITE #1,UPLOAD.PATH$, _
  184.                FMS.DIRECTORY$, _
  185.                ANS.MENU$, _
  186.                REQUIRED.QUESTIONNAIRE$, _
  187.                REMEMBER.NEW.USERS, _
  188.                SURVIVE.NOUSER.ROOM, _
  189.                PROMPT.HASH$, _
  190.                START.HASH, _
  191.                LEN.HASH, _
  192.                PROMPT.INDIV$, _
  193.                START.INDIV, _
  194.                LEN.INDIV
  195.       WRITE #1,BYPASS.MSGS, _
  196.                MUSIC, _
  197.                RESTRICT.BY.DATE, _
  198.                DAYS.TO.WARN, _
  199.                DAYS.IN.SUBSCRIPTION.PERIOD, _
  200.                CALLBACK.VERIFICATION, _
  201.                RESTRICT.VALID.CMDS, _
  202.                NEW.USER.DEFAULT.MODE, _
  203.                NEW.USER.LINE.FEEDS, _
  204. * ------[ first line different ]------
  205.                ARKVIEW.PATH$, _            'ViewArc Mod
  206.                NEW.USER.BELL, _
  207.                NEW.USER.CASE, _
  208.                NEW.USER.MARGINS, _
  209.                WRAP.CALLERS.FILE$, _
  210.                REDIRECT.IO.METHOD, _
  211.                GO.TO.SHELL, _
  212.                HALT.ON.ERROR, _
  213.                NEW.PUBLIC.MSGS.SECURITY, _
  214.                NEW.PRIVATE.MSGS.SECURITY, _
  215.                SECURITY.NEEDED.TO.CHANGE.MSGS, _
  216.                SL.CATEGORIZE.UPLOADS, _
  217.                BAUDOT, _
  218.                TIME.TO.DROP.TO.DOS, _
  219.                EXPIRED.SECURITY, _
  220.                DTR.DROP.DELAY, _
  221.                ASK.IDENTITY, _
  222.                USE.EXTERNAL.XMODEM, _
  223.                BUFFER.SIZE, _
  224.                MLCOM, _
  225.                SHOOT.YOURSELF, _
  226.                F7.MESSAGE$, _
  227.                NEW.USER.DEFAULT.PROTOCOL$, _
  228.                NEW.USER.GRAPHICS$, _
  229.                NET.MAIL$, _
  230.                MASTER.DIRECTORY.NAME$, _
  231.                PROTO.DEF$, _
  232.                UPCAT.HELP$, _
  233.                ALWAYS.STREW.TO$, _
  234.                LAST.NAME.PROMPT$
  235.       MSB = LSB + 1
  236.       LINE.CONTROL.REGISTER = LSB + 3
  237.       MODEM.CONTROL.REGISTER = LSB + 4
  238.       LINE.STATUS.REGISTER = LSB + 5
  239.       MODEM.STATUS.REGISTER = LSB + 6
  240.       WRITE #1,PERSONAL.DRVPATH$, _
  241.                PERSONAL.DIR$, _
  242.                PERSONAL.BEGIN, _
  243.                PERSONAL.LEN, _
  244.                PERSONAL.PROTOCOL$, _
  245.                PERSONAL.CONCAT, _
  246.                PRIVATE.READ.SEC, _
  247.                PUBLIC.READ.SEC, _
  248.                SEC.CHANGE.MSG, _
  249.                KEEP.INIT.BAUD, _
  250.                MAIN.PUI$, _
  251.                DEFAULT.ECHOER$, _
  252.                HOST.ECHO.ON$, _
  253.                HOST.ECHO.OFF$, _
  254.                SWITCH.BACK, _
  255.                DEFAULT.LINE.ACK$, _
  256.                ALTDIR.EXTENSION$, _
  257.                DIRECTORY.PREFIX$
  258.       WRITE #1,SEC.LVL.EXEMPT.FRM.PURGING, _
  259.                MODEM.INIT.WAIT.TIME, _
  260.                MODEM.COMMAND.DELAY.TIME, _
  261.                TURBO.RBBS, _
  262.                DNLD.SUB, _
  263.                WILL.SUBDIRS.B.USED, _
  264.                UPLOAD.TO.SUBDIR, _
  265.                DOWNLOAD.TO.SUBDIR, _
  266.                UPLOAD.SUBDIR$, _
  267.                MIN.OLDCALLER.BAUD, _
  268.                USE.EXTERNAL.YMODEM, _
  269.                DISKFULL.GO.OFFLINE, _
  270.                EXTENDED.LOGGING, _
  271.                USER.RESET.COMMAND$, _
  272.                USER.COUNT.RINGS.COMMAND$, _
  273.                USER.ANSWER.COMMAND$, _
  274.                USER.GO.OFFHOOK.COMMAND$, _
  275.                DISK.FOR.DOS$, _
  276.                DUMB.MODEM, _
  277.                COMMENTS.AS.MESSAGES, _
  278.                LSB, _
  279.                MSB, _
  280.                LINE.CONTROL.REGISTER, _
  281.                MODEM.CONTROL.REGISTER, _
  282.                LINE.STATUS.REGISTER, _
  283.                MODEM.STATUS.REGISTER
  284.       ORIG.COMMANDS$ = MAIN.COMMANDS.DEFAULTS$ + _
  285.                        FILE.COMMANDS.DEFAULTS$ + _
  286.                        UTIL.COMMANDS.DEFAULTS$ + _
  287.                        LIBRARY.COMMANDS.DEFAULTS$ + _
  288.                        GLOBAL.COMMANDS.DEFAULTS$ + _
  289.                        SYSOP.COMMANDS.DEFAULTS$
  290.       WRITE #1,KEEP.TIME.CREDITS, _
  291.                XON.XOFF, _
  292.                ALLOW.CALLER.TURBO, _
  293.                USE.DEVICE.DRIVER$, _
  294.                PRELOG$, _
  295.                NEW.USER.QUESTIONNAIRE$, _
  296.                EPILOG$, _
  297.                REGISTRATION.PROGRAM$, _
  298.                QUES.PATH$, _
  299.                USER.LOCATION$, _
  300.                USER.INITIALIZE.COMMAND$, _
  301.                USER.FIRMWARE.CLEAR.CMND$, _
  302.                USER.FIRMWARE.WRITE.CMND$, _
  303.                ENFORCE.UPLOAD.DOWNLOAD.RATIOS, _
  304.                SIZE.OF.STACK, _
  305.                SECURITY.EXEMPT.FROM.EPILOG, _
  306.                USE.BASIC.WRITES, _
  307.                DOSANSI, _
  308.                ESCAPE.INSECURE, _
  309.                USE.DIR.ORDER, _
  310.                ADD.DIR.SECURITY, _
  311.                MAX.EXTENDED.LINES, _
  312.                ORIG.COMMANDS$
  313.       IF MACRO.EXTENSION$ <> "" THEN _
  314.          MACRO.EXTENSION$ = "." + MACRO.EXTENSION$
  315.       CALL COLORCODE (FG.1.DEF$,FG.1.DEF$,X)
  316.       CALL COLORCODE (FG.2.DEF$,FG.2.DEF$,X)
  317.       CALL COLORCODE (FG.3.DEF$,FG.3.DEF$,X)
  318.       CALL COLORCODE (FG.4.DEF$,FG.4.DEF$,X)
  319.       WRITE #1,LOGON.MAIL.LEVEL$, _
  320.                MACRO.DRVPATH$, _
  321.                MACRO.EXTENSION$, _
  322.                EMPHASIZE.ON.DEF$, _
  323.                EMPHASIZE.OFF.DEF$, _
  324.                FG.1.DEF$, _
  325.                FG.2.DEF$, _
  326.                FG.3.DEF$, _
  327.                FG.4.DEF$, _
  328.                SECVIO.HLP$, _
  329.                FOSSIL, _
  330.                MAX.CARRIER.WAIT, _
  331.                CALLER.BKGRD, _
  332.                SMART.TEXT, _
  333.                TIME.LOCK, _
  334.                WRITE.BUF.DEF, _
  335.                DF, _
  336.                DF, _
  337.                DF, _
  338.                AUTOPAGE.DEF$
  339.       IF DNLD.SUB <1 OR DNLD.SUB > 99 THEN _
  340.          GOTO 59080
  341.       FOR I = 1 TO DNLD.SUB
  342.          WRITE #1,DNLD$(I)
  343.       NEXT
  344.